home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_playndefmac.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
939b
|
45 lines
/*
** $VER: Menu_PlayNDefMac.edge 1.3 (Thursday 11-Nov-93 19:17:06)
**
** Playback the default macro N' times, upto 999,999,999 times
**
** Written by Thomas liljetoft & Inovatronics
*/
options results
/* check to see if it exists */
if exists('ram:edge.macro') then do
/* ask the user how many times to replay the macro */
'requestnumber showlimits title "How many times" default 10 min 1 max 99999999'
if rc==0 then do
/* save off the count */
top=result
/* put edge to sleep */
disableuser
/* increase the error watermark */
'putenvvar _WE_ErrorLevel 6'
/* loop N times */
do n=1 to top
'ram:edge.macro'
if result='RESULT' then nop
else if result~=0 then leave
/* check to see if the user want's to give up yet */
checkabort
if rc~=0 then leave
end
/* wake edge back up */
enableuser
end
end
/* if not then complain */
else 'requestnotify "There is no default macro."'